SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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000000 PPPPPPPP DDDDDDDD RRRRRRRR IIIT VV VV EEEEEEEEEE RRRRRRRR 
000000 PPPPPPPP DDDDDDDD RRRRRRRR III VV VV EEEEEEEEEE RRRRRRRR 

00 00 PP PP ODD DD RR RR I] VV vv EE RR RR 

00 00 PP PP DD DD RR RR I] VV vv EE RR RR 

00 00 PP PP ODD DD RR RR Il VV VV EE RR RR 

00 00 PP PP DD DD RR RR II VV VW EE RR RR 

00 00 PPPPPPPP DD DD RRRRRRRR Il vV VV EEEEEEEE RRRRRRRR 

00 00 PPPPPPPP dD DD RRRRRRRR Il VV VV EEEEEEEE RRRRRRRR 

00 00 PP DD DD RR RR Il VV vy EE RR RR 

00 00 PP DD DD RR RR Il VV vw CEE RR RR 

00 00 PP DD DD RR RR Il VV VV EE RR RR coe 

00 00 PP DD DD RR RR Il VV VV EE RR RR cece 
000000 PP DDDDDDDD RR RR IIIII1 LA EEEEEEEEEE RR RR eee 
000000 PP DDDDDDDD RR RR III VV EEEEEEEEEE RR RR cove 

LL T1111] SSSSSSSS 

LL III! SSSSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL II SS 

‘LLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 
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Change code to use the CLASS_UNIT_INIT macro. 

v03-009 TCM0004 Trudy C. Matthews 21-Feb-1983 
Add CONSOWNCTY routine. 

v03-008 MIRO027 Michael I. Rasenblum 11-Feb-1983 
Fix bug in new power fail code. 

v03-007 MIROO22 Michael I. Rosenblum 19-Jan-1982 


Remove poverqnces to UCBSQ_TT_STATE and move them into 
the class driver jacket routines, to iliminate redundency 
in the port driver code. 
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Add to unit-init rout tae a call back to the class driver 
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postive action on a powerfail. 


v03-005 or Michael I. Rosenblum 04-Jan-1982 
change code to reflect the new port driver interface. 
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0000 

FF 

FF 0001 
00000004 0002 


4 
-SEP=1 SYSLOA. SRCJOPDRIVER.MAR; 1 (4) 
4 i : QUTPUT INTERRUPT QUEUE 
1 e 
$ .PSECT SYSLOA,LONG 
1 § CURR: “BYTE “1 :CURRENT UNIT EXPECTING OUTPUT DONE 
130 NEXT: BYTE 1 SNEXT UNIT TO OUT 
131 DATA: :BLKW 1 :NEXT DATA TO OUTPUT 


a a 


oO 
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irae ti CONSOLE CONTROLCER INIT TAL TORTI oN Pree ERs BO 1F:8s HSRSYES Sac e et ee nan: OO" od, 


4 3 .SBTTL CONSOLE CONTROLLER INITIALIZATION 
4 5 : CONSINITIAL = INITIALIZE CONSOLE CONTROLLER 
4 $ + FUNCTIONAL DESCRIPTION: 
4 133 : THIS ROUTINE IS USED AT SYSTEM STARTUP TO INITIALIZE THE CONSOLE CONTROLLER. 
4 161 : INPUTS: 
4 18 : 
4 143: RS = UCB ADDRESS 
. $9 R9 = CRB ADDRESS 
4 145; 
004 146 : OUTPUTS: 
004 147; 
0 4 148 : ALL REGISTERS ARE PRESERVED. 
004 150 CONSINITIAL:: ; INITIALIZE CONSOLE gINTERFACE 
20 00000040 8F DA 0004 151 MTPR - #*°X040, #PRS_RXCS : ENABLE INPUT INTERR PTS 
22 00000040 8F DA 000B 138 MTPR  - #*X040, #PRS_TXCS : ENABLE OUTPUT INTERRUPTS 
EA AF 01 AE 012 133 NEG #1, CURR : SET NO UNITS WAITING” FOR OUTPUT 


SS 
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VOnn CONSO OLE UNIT berate green 1882 0:19:35 SYSLOA.SREIO OPDRIVER.MAR:1 (8) 
17 6 a .SBTTL CONSOLE UNIT INITIALIZATION 
12 8 ; CONSINITIAL = INITIALIZE CONSOLE UNIT 
7 18 ; FUNCTIONAL DESCRIPTION: 
if 16¢ : THIS ROUTINE IS USED AT SYSTEM STARTUP TO INITIALIZE THE CONSOLE UNITS. 
O17 166 ? INPUTS: 
017 166 : RS = UCB ADDRESS 
\f 1 3 R9 = ue ADDRESS 
6 7 188 : OUTPUTS: 
0017 4 ALL REGISTERS ARE PRESERVED. 
$O17 158 CONSINITLINE: : 
6A 38 AS 02 a 0017 12 BBC #DEVSV_ TRM,UCBSL -DEVCHARCRS)  fOnSMULL: BR IF NOT TERMINAL 
50 00000000'GF DE OO1E 1% MOVAL G*OPASVECTOR,RO ; GET THE VECTOR ADDRESS 
002 17 CLASS_UNIT_INIT + AND INIT THIS UNIT 
50 011465 D0 O6F 178 MOVL ~ UCBS$L_TT CLASS (RS) RO; ADDRESS OF CLASS VECTOR TABLE 
08 B80 16 00738 179 @CLASS_SETUP_UCB(RO) INITIALIZE THE UCB FOR CONSOLE TERMINAL 
08 64 AS 05 €1 0076 180 30$: BBC #UCBSV~POWER? UCBs. STS(R5),40$: DID WE DETECT A POWER FAIL 
50 0114 ¢5 00 0078 181 MOVL UCB$L_TT CLASS(R5)7RO ; ay "in HE CLASS VECTOR TABLE ADDRESS 
2080 16 sue? é JSB acLass_ POGERPAIL ROD t AND GOTO THE POWERFAIL CODE 
50 8ED0 0085 184 40$:  POPL RO ; RESTORE RO 
0086 1 g CONSDISCONNE (CT: 
0086 187 CONSINIT_CTY 
086 1 8 CONSSET_CINE: 
0086 189 CONSDS § 
0086 190 CONSSET_MODEM 
0086 191 CONSNULC:: : NULL ENTRY FOR CONSOLE TERMINAL DISCONNECT 
05 0086 192 RSB : 


F 6 
OPDRIVER = VAX/VMS CONSOLE TERMINAL DRIVER 16-SEP-1984 00:1 87 AX/VMS Macro V04-00 Page 7 
ia Nt CONSOLE RECIEVER INTERRUPT DISPATCHER mi ioets 7 ee SYSLOA. SRCJOPDRIVER.MAR; 1 aie. 
] 1% we .SBTTL CONSOLE RECIEVER INTERRUPT DISPATCHER 
f 196 : CONSINTINP = CONSOLE INTERRUPT ON INPUT READY 
f 198 FUNCTIONAL DESCRIPTION: 
7 0 : THIS ROUTINE IS ENTERED AS A RESULT OF A RECEIVER IN TERRUPT ON THE 
087 1 : CONSOLE INTERFACE. THE INTERRUPT CAN BE GENERATED BY THE CONSOLE 
0 f ¢ : TERMINAL OR FLOPPY DRIVE. 
6 7 4 : CONSOLE TERMINAL: ALL RECEIVED DATA CHARACTERS ARE QfONSIDERED 
0 7 5: UNSOLICITED AND RESULT IN AN ENTRY INTO THE 
7 $ : TERMINAL DRIVER COMMON CHARACTER BUFFERING 
0 g 07 ; ROUTINE "‘@UCBSL_TT_PUTNXT(RS)' 
$087 $8 : CONSOLE FLOPPY: RECEIVER INTERRUPTS FROM THE CONSOLE FLOPPY 
087 210: MUST BE EXPECTED (UCBSV = 1). IF T 
087 211: INTERRUPT IS EXPECTED T in UCBSV INTTYPE 1s SET 
087 1 : IN UCB$W_STS TO SIGNAL A RECEIVER INTE 
0087 13; THE DRIVER IS THEN ENTERED AT ITS WAIT FOR. INTERRUPT 
0087 af ; CONTEXT PC. 
0087 1 t INPUTS: 
o087 18 : RO,R1,R2,R3,R4,R5 ARE SAVED ON THE INTERRUPT STACK. 
0087 0 : OO(SP) = ADDRESS OF THE IDB 
0087 é : OUTPUTS: 
0087 43 : THE SAVED REGISTERS ARE RESTORED BEFORE REI. 
0087 $ CONSINTINP: : 
53 21 «~B 0087 , MFPR  § #PRS_RXDB,R3 : MOVE DATA FROM INTERFACE 
OBA ; : GET THE ASSOCIATED UCB 
54 OF 00 OOBA ee MOVL a@(SP)+,R4 ; GET IDB ADDRESS 
52 523 x af 78 0080 é ASHL pth R3, : GET LINE NUMBER 
0c AS) 52~—=ié«@wSY 0997 4 CMPW Tonge _UNITS(R4) ; LEGAL UNIT NUMBER? 
20 1€ 0098 5 BGEQU : § ; DISMISS INTERRUPT 
55 18 A442 D0 0090 & 5$ MOVL DBSL_UCBLST(R4)CR2],R5 ; GET THE UCB ADDRESS 
1 1 Ag BEQL $ NO UCB = DISMISS INTERRUPT 
64 AS 0080 BF A A : BISW #UCBSH INTTYPE ,UCBSW_ stsin5); SET RECEIVER INTERRUPT 
02 EO OOAA BBS “TRM, = ; ENTER FLOPPY INTERRUPT CODE 
03 38 A AC 40 Matt BEVCHAR(RS), 10$ 
0086 «(31 AF *] BRW FLOPIAT ; IF NOT TERMINAL UCB 
“8 : CONSOLE TERMINAL INTERRUPT 
53. 53 OA 45 10$:  MOVZBL R3,R3 : ZERO TOP 3 BYT 
0110 05 1 46 JSB €BSL_TT_PUTNXT(RS) : BUFFER THE CHARACTER 
1 9 84 BEQL : IF EQL THEN NO CHARACTER TO OUTPUT 
08 } 48 0s: BSBB = CONSSTARTIO : OUTPUT THE CHARACTER 
00 D 249 30$: BRW DISMIS : 60 
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OPDRIVER = VAX/VMS CONSOLE RMINAL DRIVER 5 po 4 00:1 87 AX/VMS Ma cro V04-00 Page 
yOLe O08 START 1/0 ON CON Neoe tH ERFA ACE "978 1986 ee SYSLOA.SRCJOPDRIVER.MAR:1 |” B) 
c : .SBTTL START 1/0 ON CONSOLE INTERFACE 
c ; : CONSSTARTIO = START I/O ON CONSOLE INTERFACE 
c 5 : FUNCTIONAL DESCRIPTION: 
¢ . : THIS ROUTINE IS ENTERED TO OUTPUT A CHARACTER TO THE CONSOLE INTERFACE. 
¢ 38 : IF THE INTERFACE Is READY THE DATA IS OUTPUT DIRECTLY. IF THE INTERFACE 
¢ 59 : IS NOT READY THEN THE DATA IS QUEUED AND SUBSEQUENTLY OUTPUT ON THE 
: ¢' 3 NEXT READY INTERRUPT. 
¢ 6¢ : IN EITHER CASE, A RETURN TO THE CALLER IS DONE TO ENTER A ‘WAIT FOR 
¢ 3 INTERRUPT" STATES 
o¢ 65 : INPUTS: 
¢ 85 ; R3 = DATA TO OUTPUT 
C 68 : R5 = UCB ADDRESS 
o¢ 79 : OUTPUTS: 
0c te : R3,R4,R5 ARE PRESERVED. 
oo Sek 
o¢ 03 .ENABLE LSB 
0c r CONSSTARTIO:: , 
02 38 AS 92 E1 806 79 BBC #DEVSV_TRM,UCBSL_DEVCHAR(R5),5$ ; BRANCH IF FLOPPY 
23. «19 0c 80 BLSS 208 : BRANCH IF BURST MODE 
00¢7 Be i : INSERT UNIT NUMBER IN DATA WORD 
Mite % Ss: 
Ocf és CONSSTARTIO1: 
52. 5405 9A 00C7 6 MOVZBL UCBSW_UNIT(RS) ,R2 : PICK UP UNIT NUMBER 
53 02 08 52 FO 00CB 87 INSV R2,#87#2,R3 t INSERT UNIT NUMBER AND CLEAR OTHER BITS 
ob 89 : INITIATE 1/0 IF NO PREVIOUS UNIT WAITING 
FF2C CF 09S 13 91° TSTB cy RR : OTHER UNIT WAITING? 
19 00D4 3 BLSS : IF LSS NO, OUTPUT DATA AND RETURN 
FF2G CF 90 0006 29 MOVB i »NEXT > SAV E UNIT NUMBER 
FF22 CF e ope 94 MOVW DATA i SAVE DATA 
eC 95 ca RSB ; EXIT 
FFIA CF 53 90 00E1 39 "  mOvB R2 CURR : SAVE UNIT NUMBER OF CURRENT SENDER 
23 DA EG 98 MTPR = R3,#PRS_TXDB + SEND DAT 
05 E9 99 RSB 
0800 8: AB OOEA 1 20$:  BISW  #TTY$M_TANK_BURST.- 
siés ¢5 EF é UCB$W_TT_HOCD(R5) ; SET BURST MODE 
F] 4 : TAKE CHARACTER OUT OF BURST BUFFER AND TRY TO OUTPUT IT IMMEDIATELY 
53. 011C DS) «9A.s«OOF I , MOVZBL @UCBSL_TT_OUTADR(RS),R3 ; OUTPUT NEXT BYTE 
SE e2 D6 O00F6 $ INCL  UCBSL_TT_OUTADR(RS) : UPDATE POINTER 
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pecy cesw. TT_OUTLEN(RS) gE Ft acres 

BICW #TTYSM_TANK_BURST,- ; RESET BURST ACTIVE 
1 pees TT_HOCD(R5) 
\¢ BRB $ 
13 -DISABLE LSB 
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ira tt CONSOLE L FRANSATTTER INTER RuPT SERVICE -SEP-1984 ¢ 82: 19:35 SYSLOA.SRCJOPDRIVER.MAR:1 (3) 
9 17 “ .SBTTL CONSOLE TRANSMITTER INTERRUPT SERVICE 
3 19 : CONSINTOUT = CONSOLE TRANSMITTER INTERRUPT SERVICE 
; : FUNCTIONAL DESCRIPTION: 
3 ; : THIS ROUTINE IS ENTERED WHEN A CONSOLE UNIT READY INTERRUPT OCCURS. 
109 5 : A SEARCH IS MADE 10 THE COLD STORAGE BUFFER FOR DATA TO OUTPUT. 
109 $ : IF ANY IS FOUND THEN IT IS OUTPUT. IF NO VALID DATA 
109 : THE INTERRUPT TATE OF THE UNIT I$ CHECKED FOR EXPECTED INT T. 
109 8 : IF NO INTERRUPT IS EXPECTED, THE INTERRUPT IS DISMISSED. IF AN INTERR 
109 : IS EXPECTED 1 EN THE DRIVER IS ENTERED. IN THE CASE OF THE CONSOLE CHERAINAL 
109 0 : A SPECIFIC ROUTINE IS ENTERED TO GET THE NEXT CHARACTER AVAILABLE T 
109 1 : ON THE UNIT. IN THE CASE OF THE CONSOLE FLOPPY, THE WAIT FOR INTERRUPT 
? j : CONTEXT IS TAKEN FROM THE UCB AND THE SPECIFIED ROUTINE IS ENTERED. 
193 , + INPUTS 
0108 $ : RO,R1,R2,R3,R4,R5 ARE SAVED ON THE INTERRUPT STACK. 
0199 2 : OO(SP) = ADDRESS OF THE IDB 
0109 340 : ouTPuTs: 
0109 341: 
0109 4g ; THE SAVED REGISTERS ARE RESTORED BEFORE REI. 
109 344 CONSINTOUT:: ; 
54 9E 00 109 45 MOVL a(SP)+,R4 : GET ADDRESS OF IDB 
52 FEFI CF 98 O10C 346 CVTBL NEXT Re : GET UNIT NUMBER OF NEXT SENDER 
Op 19 0111 347 BLSS.  10$ : IF LSS NO SENDER WAITING 
FEES CF 01 gE 118 48 EGB  #1,NEXT t RESET SENDER-WAITNG 
5 FEE CF 3c «(011 4 MOVZWL DATA,R3 : GET DATA TO SEND 
23. 53 «ODA 149 20 ie TPR  ——-R3, #PRS_TXDB : TRANSMIT DATA 
53 FEDC CF 9A O01 p 38 "  MOVZBL CURR, R3 + GET UNIT NUMBER OF CURRENT SENDER 
FED6 CF 3 90 01 5 MOVB Re «CURR : SET UNIT NUMBER OF NEXT CURRENT 
5395 «(012A 354 TSIB. ORR : SPURIOUS INTERRUPT? 
24 19 O1eC 38 BLSS DISMIS : IF LSS YES 
55 18 Ab43 00 1 § 6 MOVL  IDBS$L_UCBLST(R4)CR3,R5 : GET ADDRESS OF 
0064 a5 O07 CE 3 alle BBCC #UCBSU_INTTYPE,UCB$W.STS(R5),FLOPINT ; SET OUTPUT INTERRUPT 
13 38 AS 02 £0 01 ; 36 BS #DEVSV_TRM,UCBSL_DEVCHAR(R5S),20$ ; IF BIT CLEAR, UNIT = FLOPPY 
0 64 AS 0 E5 01 60 BBCC #UCBSV~TIM.UCBSW- =STS(R5) 108 : CLEAR TIMEOUT PENDING 
6445 O01 € 149 110$:  BBCC —- MUCBSVTINT, ‘UCBSW~STS(R5).DISMIS : EXIT IF NOT WAITING FOR INTERRUPT 
162 68 : DEVICE IS A FLOPPY 
54 1405 00 0147 ge , MOVL  UCBSL_FR4(R5),R4 : RESTORE R& CONTEXT 
0c BS 16 148 66 Js8 aucest_ FPC(RSS : ENTER FLOPPY INTERRUPT HANDLER 
1 68 ; 
13 63 t DEVICE IS A TERMINAL 
0A 10 3 rt 20$:  BSBB —*TERMINALIO 
1 s DISMIS: ; 
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79 TERMINALIO: 
CHECK FOR BURST ACTIVE ON LINE 


1 
18¢ 
18¢ 
08 91 015¢ CMPB aT TYSR TANK BURS Ta 8,- ; ONLY BURST ACTIVE? 
0109 : 1 4 W_TT_HOCD+1(R 
9 13 16 5 BEQL yiRe y- : YES, CONTINUE BURST 
16 : LOOK FOR NEXT OUTPUT STATE IN TANK 
16 : 
53 0109 CS 06 00 EA 198 : FES. rote pucesu. TT_HOLD+1(R5), RS aren 
194 38 3 send ree t character 
16A 394 - : BURST tN PROGRESS 
Bs 
124 3 : NO PENDING DATA = LOOK FOR NEXT CHARACTER 
64 A5 03 BA 0174 599 BICB #UCBSM_TIM!UCBSM_INT,UCBSW_STS(R5); CLEAR TIMEOUT AND EXPECTED 
He 431 : CALL TERMINAL DRIVER ROUTINE 
010¢ 0S «=: 16—s«017 208 : JSB acest TT_GETNXT(RS) |; GET THE NEXT CHARACTER 
07 19 O17C 404 BLSS  START_BURST : BURST SPECIFIED 
40 13 O17E 405 BEQL = EX xin i NONE 
FF44 30 «018 406 BSBW CONSSTARTION : INITIATE 1/0 
37,11 185 40 BRB EXIT_INT : EXIT WITH INTERRUPT EXPECTED 
185 108 START_BURST: 
0800 BF AB 0185 410 BISW §#TTYSM_TANK_BURST,- ; SIGNAL BURST ACTIVE 
0108 C5 189 i) Pt. UCB$W_TT_HOCD(R5) 
53 0110 DS) 9A 18¢ 11 " MOVZBL @UCBSL_TT QUTADR (RS) RS : SET NEXT OUTPUT CHARACTER 
O11C C5 Dg 191 414 INCL _UCB$L_TT_OUTADR(RS) : UPDATE P NTER 
0120 ¢5 «6B? «(0195s 415 DECW UCBSu~ 1T ~OUTLEN N(R5) > UPDATE NT 
67 12 0199 41 BNEQ : NOT LAST CHARACTER 
0800 8F AA 0198 41 BICW  #TTY$M_TANK_BURST,- + RESET BURST ACTIVE 
0108 C5 19 418 UCB$W_TT_HOLD(R5) 
FR 30 O1A2 420 108:  BSBW  CONSSTARTION ; OUTPUT CHARACTER 
ee 1A é 1 BRB EXIT_INT : EXIT WITH INTERRUPT EXPECTED 
1A? § STOP: 
03 BA OIA? 426 BICB #UCBSM INT UCBSH_ TIM,- 
64 A 109 425 UCB SW. 5 ; RESET OUTPUT ACTIVE 
13°=«11 148 4 6 BRB EXI 
1AD 4 8 ENABLE LSB 
1AD 429 PREMPT: 
9100 af AA 1A 4 0 BICW gTTYSA TAM PRERPT. - _; RESET XOFF STATE 
53 S108 £3 9A 1 ? § MOVZBL UCBS$B"TT_PREMPT(RS5),R3 ; SEND prempt character 
FFOB 30 189 4 4 BSBW  CONSSTARTIO1 : OUTPUT CHARACTER 
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444 .SBTTL CONSOLE PORT ACTION ROUTINES 
42% : CONSXOFF = SEND XOFF 
CONSKON. = N 
CONSSTOP STOP OUTPUT 
CONSSTOP2 ~ ALTERNATE STOP 
CONSABORT - ABORT CURRENT OUTPUT 


CONSRESUME = RESUME STOPPED OUTPUT 
FUNCTIONAL DESCRIPTION: 


THESE ROUTINES ARE USED BY THE THE TERMINAL CLASS DRIVER TO 
CONTROL OUTPUT ON THE PORT 


INPUTS: 
RS = UCB ADDRESS 
OUTPUTS: 
R5 = UCB ADDRESS 
-ENABLE LSB 
8 CONSXOFF:: 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ph aeiageaate ss iieiate * 


ie be. ak “sak “han “ah hh oh ok A AL AL AL AL AL AL AL AL AL AL ee tt ee lee ee a 


Ft MM UAUMRMUAUMARMRMAARAAAAMAAAMAMUUMAeMa Meee 


——QOCCOOOMMMMMMMM DS FF FVII IIINONONOAAOAOAOAOAOAAOAAOOOOOAAOOOOOOOO 
SOD D8 99 9 NNN FF HET ET ONE PONS OD a a a at a at tt tt DD 


| 
8 9 CONSXON:: 
0108 CS. 0100 BF saa 0 BISW = #TTYSM TANK _PREMPT ,UCBSW_TT_HOLD(R5) ; SCHEDULE PREMPT 
010A CS 553900 1 MOVB  R3,UCBS$B_TT~PREMPT(RS) : SAVE PREMPT CHARCTER 
OC 64 A5) «6001S ssé€0s«OO rg BBS #uCBSV_ Par. Ocesu. STS(RS),10$ + IF OUTPUT ACTIVE, 
1 “ 74, PUSHR #*M<R1,R2,R3,R4> : SAVE REGISTERS 
FFB 75 BSBW TERMINAL 6 : START OUTPUT 
1— BA a: POPR #*M<R1,R + RESTORE REGISTERS 
00 64 a5 01 €E2 , io BBSS  #UCB$V_ wate Ritesu. STS(RS),10$ + SHOW OUTPUT ACTIVE 
05 8 " oRSB 
6 DISABLE LSB 
é CONSSTOP: : 
9200 8F A BISW  #TTYSM_TANK STOP : SCHEDULE STOP 
108 C5 4 UCB$W_TT_HOCD(R sf 
05 5 RSB 
§ CONSABORT: : 
0108 C5 08 E5 8 BBCC #TTYSV_TANK BURST ,UCBSW_TT_HOLD(R5) ,~ : RESET BURST ACTIVE 
0 10$ , 
91 TIMSET 1 : SETUP A TIMER 
05 36 RSB 
94 CONSRESUME: : 
51 DD 95 PUSHL 1 : SAVE A REGISTER 
0108 CS) 0200 BF SAA 49 #TTYSM_ TANK STOP- 
49 UCBSW"TT HOLD(RS) : RESET STOP CONDITIONS 
28 0108 cS) s«(OB” sé 49 BBC AT TYSv" TARE BURST. UCB$W_TT_HOLD(RS).40$ ; BRANCH IF NO BURST IN PROG 


51 0120 ¢5 3C 500 MOVZWL UCBSW_TT_OUTLEN(RS) ,R1 NUMBER OF BURST CHARS 
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15 : TIMSET R1,R1 ; SET TIME OUT 
F 30$: 
07 64 AS 01 ~€£0 F 4 BBS wycesy. INT, cBsu STS(RS) ,40$ : SKIP IF OUTPUT ON 
3 BB 4 05 PUSHR #*M< : SAVE REGISTERS 
FF2 0 : : BSBW SCS atten : STA 
1— BA 9 0 pea POPR penny R2,R3,R4> : RESTORE REGISTERS 
51 8ED0 8 8 “ pOPLSsRI 
05 E 10 RSB 
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-SBTTL SEND COMMAND TO CONSOLE 


: CONSSENDCONSCHD = SEND CPU-DEPENDENT COMMAND TO CONSOLE 
; FUNCTIONAL DESCRIPTION: 

INITIATE FUNCTION ON CONSOLE 

; INPUTS: 


IGNAL TO wits AND THEN HALT 
ae ted LAG 


$0 
TO 
13 
1 
13 
i 
i ; 
4: E 
-e S RE 4 
§ 3 C “CLR CLEAR CON 
; CONSC“CLR CLEAR CON 0 FLAG 
8; R2 = NUMBER OF BY OF DATA TO 8 RNED (= 0 IF NO DATA EXPECTED) 
9; (CURRENTL LY IMPLEMENTE 11/ 90 VERSION OF THIS ROUT INE) 
0; R TO HOLD RE RO) 
; PLEMENTED ON 1 INE 
4 i 
é z 
33 CONSSENDCONSCAD: : 
} 
rk 
44 
rf 
29 
48 
49 
50 
51 


R3 = ADDRESS OF BUF DATA (ONLY IF R2 IS NON-ZE 
(CUR 1/790 VERSION OF THIS ROUT 


; OUTPUTS: 


CONSOLE STATE MODIFIED 
R1 DESTROYED 


#*XF00,RO 
10$: aFPR gprs vi §,R1 
CMPB  —s- RO. ACONSC_BOOTCPU 
MTPR RO, APRS_TXDB 


20$:  MFPR  #PR$_TXCS,RI1 
8B #7,RT,208 


LLANEOUS CONSOLE COMM. 
TER_ STATUS 
SOLE READY 
H TO HALT AFTER COMMAND 
OMMAND 
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SEND REBOOT COMMAND TO CONSOLE 
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30$: MTPR RO, #PRS$_TXDB 
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~SBTTL ‘‘ALLOCATE’’ CONSOLE TERMINAL 


or 
cn 
m 


304 
> CONSOWNCTY = “‘ALLOCATE'’ CONSOLE TERMINAL 
: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SHOULD BE CALLED WHEN PERFORMING NON-INTERRUPT DRIVEN 
1/0 TO THE CONSOLE TERMINAL. IT DISABLES INTERRUPTS AND DOES ANY 
CPU-SPECIFIC INITIALIZATION OF THE CONSOLE TERMINAL REGISTERS. 
CONSRELEASECTY SHOULD BE CALLED TO RESTORE THE STATE OF THE CONSOLE 
TERMINAL INTERFACE REGISTERS. 

; INPUTS: 

: NONE 

; OUTPUTS: 
RO: VALUE TO BE RESTORED TO TXCS WHEN RELEASING CONSOLE TTY 
Ri: VALUE TO BE RESTORED TO RXCS WHEN RELEASING CONSOLE TTY 
PRS$_RXCS AND PRS_TXCS ARE SET UP SO THAT NON-INTERRUPT 1/0 CAN BE 
PERFORMED TO THE CONSOLE TERMINAL. 


11/780, 11/750, AND 11/730: 
CONSOLE INTERRUPTS ARE DISABLED 


¢ 


11/790: 
CONSOLE TRANSMIT AND RECEIVE MASKS ARE SET UP SO THAT ONLY 
1/0 TO THE CONSOLE TERMINAL IS PERMITTED. INTERRUPTS ARE 
DISABLED. 

ONSOWNCTY:: 

MFPR #PRS_TXCS,RO ; GET VALUE TO BE RESTORED TO TXCS. 

MFPR #PRS_RXCS,R1 ; GET VALUE TO BE RESTORED TO RXCS. 

MTPR #0, #PRS$_RXCS ; DISABLE RECEIVE INTE 

Sing #0,#PRS_TXCS ; DISABLE TRANSMIT INTERRUPTS 
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++ 
CONSRELEASECTY = RELEASE CONSOLE TERMINAL 
FUNCTIONAL DESCRIPTION: 


: THIS ROUTINE SHOULD BE CALLED TO RELINQUISH EXCLUSIVE USE OF THE 
; CONSOLE TERMINAL OBTAINED BY CALLING CONSOWNCTY. IT RESTORES THE 
: STATE OF THE CONSOLE REGISTERS RXCS AND TXCS. 
: INPUTS: 
; RO: VALUE RETURNED BY CONSOWNCTY TO BE RESTORED TO TXCS 
; Ri: VALUE RETURNED BY CONSOWNCTY TO BE RESTORED TO RXCS 
: OUTPUTS: 
; RXCS AND TXCS ARE RESTORED TO THEIR ORIGINAL STATE. 
CONSRELEASECTY:: 

22 50 DA MTPR RO, #PRS_TXCS ; RESTORE TXCS 

20 «51 DA MTPR R1,#PRS_RXCS : RESTORE RXCS 


+t 
CONSGETCHAR = GET A CHARACTER FROM THE CONSOLE TERMINAL 
; FUNCTIONAL DESCRIPTION: 


: THIS ROUTINE SHOULD BE CALLED TO DO NON-INTERRUPT DRIVEN I/0 
; DIRECTLY TO THE CONSOLE TERMINAL 


; INPUTS: 
Non 


OUTPUTS: 
RO contains the character. 


SSN NNN NNN NNN NPA AAA AAA AAA AOA AOSOPAOO SO 
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OOONAUE WN 9 OO NAME WIN (OOD NAUSEA OO OONOUES UM MO 


00000013 control_s = 19 ; control s (xoff) 
00000011 control_q = 17 ; control q (xon) 
CONSGETCHAR: : 
10$: mfpr oars recs -r0 sreceiver ready? 
bbc #7,°0,10$ sif clr, receiver not ready 
4 #pr$_rxdb,r0 read input character 
rs sreturn 


p++ 
; CONSPUTCHAR = PUT A CHARACTER TO THE CONSOLE TERMINAL 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SHOULD BE CALLE 
DIRECTLY TO THE CONSOLE TERM 


INPUTS: 
RO - Character to be output 


O DO NON-INTERRUPT DRIVEN 1/0 
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3; OUTPUTS: 
; Character written to the console terminal. 
CONSPUTCHAR: : 

6 pushl save a register 

5 10$: mfpr a 1368" scqceiver ready? 
6 § bbc if clr, receiver not ready 
65 mfpr $ Pedder read input character. 
028 cmpzv a} a7ir ja Ree _s icontrol-s? 
65 bneq sif neq no 
969 20$: mfpr 7? r68"" sreceiver ready? 

? bbe sif clr, receiver not ready 
6 § mfpr . $ rxd read input character 
66 cmpzv #7,61 we 0 St 9 sis it a control-q? 
664 bneq 50g sno, wait for another character. 
665 30$: mfpr for teegert transmitter done? 
O38 bbe sif clr, transmitter not done 
66 mtpr rO dors txdb swrite output character 
668 = + irestore a register 
$6) rs sreturn 


671 CON_END: 
672 SEND 
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Symbol table 
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CLASS 
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CONSNULL 
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beeen eee ewer een at 


! Psect synopsis ! 
$e ece ean enannraces + 
PSECT name Allocation PSECT No. Attributes 
5 OS 00000 98 ( -) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 8 3 00 ¢ on 2. f Bon to USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SYSLOA BO ( 688.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC LONG 
te mnenoe eee eee nee ee ee eee a=} 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization ¢2 99: £09.02 88:00: 1.51 
Command processing 1 :00:00.46 00:00: ¢- 9 
Pass 49 Bg! :12.31 00:00:51.07 
Symbol table sort 9 0: 9: 95 BOR Ra: 4 
Pass 2 12 83: 202.41 0:00:08. 3 
Symbol table output 10 0:00:00.07 0:00:00. 
Psect synopsis output 00:00:00.0 00:00:00.02 
Cross-reference output 0:00: 9-9 00:00:00.00 
Assembler run totals 806 0:00:17.2 00:01:09.05 


The working set Limit was 1800 pages. 

101758 bytes (199 pages) of virtual memory were used to buffer the intermediate goer. 

There were 100 pages of symbol table space allocated to hold 1915 non-local and 31 local symbols. 
2 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

51 pages of virtual memory were used to define 48 macros. 


: 
$mwe reese ewer ees ens oo mae + 


Macro Library name Macros defined 
“BSc ceDUACS: ESVS- 0812418 m8: 21 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 7 
TOTALS (all libraries) 28 


2291 GETS were required to define 28 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:OPDRIVER/OBJ=OBJ$:OPDRIVER MSRC$:OPDRIVER/UPDATE=(ENH$:OPDRIVER) +EXECMLS/LIB 
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